home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / tonyray1.arc / BB1.PRG < prev    next >
Encoding:
Text File  |  1985-09-01  |  2.3 KB  |  147 lines
  1. SET DEVI TO SCREEN
  2. mbilsel1=.t.
  3. DO WHIL mbilsel1
  4. sele current
  5. SET INDE to currnmbr,currname
  6. CLEA
  7. lfile_nmbr=space(6)
  8. mbilsel2=space(1)
  9. mbilsel3=space(1)
  10. mfile_nmbr=space(6)
  11. @05,20 say 'Print by (S)ingle account or'
  12. @06,20 say '         (R)ange of accounts'
  13. @07,20 say '         (cr) to exit'
  14. @09,46 get mbilsel2 pict '@!'
  15. READ
  16. CLEA gets
  17. IF mbilsel2=' '
  18. mbilsel1=.f.
  19. exit
  20. ENDI
  21. IF .not. mbilsel2$'SR'
  22. @17,20 say 'improper input - try again'
  23. xx=1
  24. DO WHIL xx<35
  25. xx=xx+1
  26. ENDD
  27. LOOP
  28. ENDI
  29. @13,10 say 'Print (A)ll entries or only (C)urrent entries?'
  30. @15,46 get mbilsel3 pict '@!'
  31. READ
  32. IF .not. mbilsel3$'AC'
  33. @17,20 say 'improper input - try again'
  34. xx=1
  35. DO WHIL xx<35
  36. xx=xx+1
  37. ENDD
  38. @15,00
  39. LOOP
  40. ENDI
  41. DO CASE
  42. CASE mbilsel2='S'
  43. CLEA
  44. @05,20 say 'enter file number :' get mfile_nmbr
  45. READ
  46. CLEA gets
  47. FIND '&mfile_nmbr'
  48. IF eof()
  49. @17,20 say 'no file with that number - try again'
  50. xx=1
  51. DO WHIL xx<35
  52. xx=xx+1
  53. ENDD
  54. LOOP
  55. ELSE
  56. @17,00 SAY 'POSITION PRINTER AND HIT RETURN'
  57. SET CONS OFF
  58. WAIT
  59. SET CONS ON
  60. @17,00
  61. @17,00 SAY 'PRINTING....'
  62. SET CONS OFF
  63. IF mbilsel3='A'
  64. DO bill
  65. SET DEVI TO SCREEN
  66. SET CONS ON
  67. ELSE
  68. SET CONS OFF
  69. DO bill1
  70. SET DEVI TO SCREEN
  71. SET CONS ON
  72. ENDI
  73. LOOP
  74. ENDI
  75. CASE mbilsel2='R'
  76. CLEA
  77. @05,20 say 'enter beginning file number :' get mfile_nmbr
  78. @06,20 say '(or cr to print all)'
  79. READ
  80. CLEA gets
  81. IF mfile_nmbr=' '
  82. GOTO top
  83. mfile_nmbr=file_nmbr
  84. GOTO bottom
  85. lfile_nmbr=file_nmbr
  86. ELSE
  87. @07,20 say 'enter ending file number    :' get lfile_nmbr
  88. READ
  89. CLEA gets
  90. ENDI
  91. FIND '&LFILE_NMBR'
  92. IF eof()
  93. @17,20 say 'inproper input - try again'
  94. xx=1
  95. DO WHIL xx<35
  96. xx=xx+1
  97. ENDD
  98. LOOP
  99. ENDI
  100. FIND '&mfile_nmbr'
  101. IF eof()
  102. @17,20 say 'inproper input - try again'
  103. xx=1
  104. DO WHIL xx<35
  105. xx=xx+1
  106. ENDD
  107. LOOP
  108.  
  109. ELSE
  110. @16,03 SAY 'WILL NOT PRINT CASES ON HOLD - YOU MUST USE (S)ELECT'
  111. @17,10 SAY 'POSITION PRINTER AND HIT RETURN'
  112. SET CONS OFF
  113. WAIT
  114. SET CONS ON
  115. @16,00
  116. @17,00
  117. @17,00 SAY 'PRINTING....'
  118. SET CONS OFF
  119. DO WHIL FILE_NMBR<='&LFILE_NMBR' .AND. .not. eof() 
  120. @22,10 
  121. @22,10 say 'printing &mfile_nmbr'
  122. IF .NOT. HOLD
  123. IF mbilsel3='A'
  124. DO bill
  125. SET DEVI TO SCREEN
  126. ELSE
  127. DO bill1
  128. SET DEVI TO SCREEN
  129. ENDI
  130. ENDI
  131. sele current
  132. SKIP
  133. IF file_nmbr>'&lfile_nmbr'.or. eof()
  134. exit
  135. ENDI
  136. MFILE_NMBR=FILE_NMBR
  137. ENDD
  138. SET CONS ON
  139. ENDI
  140.  
  141. OTHE
  142. LOOP
  143. ENDC
  144. ENDD
  145. CURR='022'
  146. RETU
  147.